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Objective 

The objective of this work has been to develop a FORTRAN 90 (F90) version of the 
NESSUS probabilistic analysis software, Version 6.2 with NASTRAN interface. The target 
platform for the modified NESSUS code is the SGI workstation. 


Work Performed 

There were two major issues to be addressed in porting NESSUS 6.2 to F90 on the SGI. 

1) Integer manipulation of character data 

2) Hollerith descriptors in FORMAT statements. 

Integer manipulation of character data 

The biggest obstacle to overcome in porting NESSUS to FORTRAN 90 concerned the 
reading, manipulation and writing of character data within NESSUS/FEM. The NESSUS 6.2 
code delivered in September 1995, reads character values into integer arrays, manipulates the 
integer values, e.g., performs keyword comparisons, and writes integer variables using an “A” 
format. This approach is legal under FORTRAN 66 and FORTRAN 77 but not FORTRAN 90. 
Some F90 compilers, e.g., HP, allow this but SGI does not. Also, NESSUS initializes integers in 
data statements as characters using Hollerith statements. 

After evaluation of the NESSUS code, it was determined that some routines could be 
fixed easily by changing the array from integer to character. This was possible in routines where 
the array in question was a local array. 

However, other arrays were passed as arguments to a large number of subroutines. Any 
significant change to these arrays would effect the entire NESSUS/FEM reading procedure. 
Therefore, a work around was developed. 
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For example, the FORTRAN code below is used to read a character and determine 
whether it is an '*' or not. The code, 1) initializes an integer, istar, to a character '*' in a data 
statement, then, 2) reads data into an integer array, then, 3) compares the integers. 

data istar / 1H* / 

read ( icread, 100 ) ichar 
100 format (al) 

if ( ichar . eq . istar ) go to 200 

Under FORTRAN 90 on the SGI, the data statement and the read statement are illegal. 

The approach taken within NESSUS/FEM to circumvent this problem is to read the data 
as characters and transfer the information to integers. Then, NESSUS/FEM can use the same 
integer-based character operations as before. However, the integers must be changed back to 
characters again before printing. 

FORTRAN 90 has a TRANSFER intrinsic that can be used to transfer between character 
and integer. TRANSFER does not adjust the bits of a variable, but changes the interpretation of 
the bits. TRANSFER is a function with syntax 

TRANSFER ( var iable_to_trans f er , type_to_transfer_to) . 

Therefore, we can use the code 

istar = TRANSFER ( 1 * istar) 

read ( icread, 100 ) char 
100 format ( al ) 

ichar = TRANSFER (char/ / ’ ’ , ichar) 

if ( ichar . eq. istar) go to 200 

to set istar and ichar. Then, the integer comparison code can be used without changes. 

Note that a character is 1 byte whereas an integer is 4 bytes. Thus, the character variable 
char is padded by three blanks before transferring to an integer. 

The code can be optimized by placing the initialization of an integer variable into a data 
statement to prevent the repeated setting of istar. This can be done by identifying the 
resulting integer code for character variables and placing the values in parameter statements. The 
parameters can then be used to set the integer variables. The parameters are contained in a 
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module "f 90_params . f 90". f 90_params . f 90 is listed in Appendix A. 

The code can now be written as (where STF9 0 is the integer code for ‘* ’) 

use f90_params 
data istar / STF90 / 

read ( icread, 100 ) char 
100 format ( al ) 

ichar = TRANSFER (char/ / ' 1 , ichar) 

if ( ichar . eq . istar ) go to 200 

This approach works correctly. The difficulty is that numerous changes are required 
throughout NESSUS. 

A related issue is the writing of character data. Writing integer variables as characters is 
allowable under FORTRAN 77, but not FORTRAN 90 on the SGI. Thus, those statements must 
also be modified by using a temporary character variable corresponding to the integer to be 
printed. For example, the code 

write (iout, 300) ichar 
300 format (al) 

is allowable under FORTRAN 77. An equivalent FORTRAN 90 code is 

char = transfer ( ichar , chr) 
wri te ( iout , 3 00 ) char ( 1 : 1 ) 

300 format (al ) 

where char is declared character*4. 

Hollerith descriptors within FORMAT statements 

Several FORMAT statements contained Hollerith descriptors, which are marked for 
obsolescence in F90 and are not allowed on the SGI. This fix was to replace all Hollerith 
descriptors with apostrophe delimiters. 

Modified subroutines 

A list of the subroutines modified and the particular change for each routine is given in 
Appendix B. 
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SGI Source Code, Executable and Verification Problems 

The modified NESSUS source code and verification problems are located on the MSFC 
SGI with Internet address cosmo . msf c . nasa . gov in the following directory structure: 


1. 


hmill/f90 

a) src - modified F90 source code and compiled version using debug flag 

b) src_01 - compiled version using optimization flag 1 

c) verify 

i) fern - finite element-based problems 

ii) fpi - fpi-based problems 

iii) mpplrs - most probable point response surface-based problems 

iv) pbem - boundary element-based problems 

v) pfem - probabilistic finite element-based problems 

vi) risk - risk assessment-based problems 

vii) simfem - finite element sampling-based problems 

viii) sra - system risk assessment-based problems 


The source code was compiled with the optimization flag -Ol in src_01. The executable 
was verified using approximately 200 verification problems. The verification problems used are 
listed in Appendix C. 
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Appendix A - f90_params.f90 module 


The f 9 0_params . f 90 module is listed below. The routine contains the integer values 
for the upper case alphabet, numerals 0-9, and a few other relevant characters such as +, blank, 
and *. Subroutine char_check is used to verify that the integer values for the characters of 
whatever system on which NESSUS is running agree with the values used in the parameters. 
This routine is called from the nessus . f main routine. If any values do not agree, the program 
prints an error message and stops. It is not expected that this will occur, but it is useful to have a 
verification check. 


Subroutine char_f rom_int is used as a convenient function to convert integers back 
to characters before printing. 

! module to define integer equivalents of characters. 

! values defined using parameters so that they can then 
! be used in data statements. The transfer function is 
! used to ensure that the values agree with 

! the parameters for the current platform. Routine char_check 
! should be called only once from the NESSUS main routine or 
! an initialization routine. 


uses "transfer" intrinsic 


module f90_params 

integer, PARAMETER : : 
CF90 = 
EF9 0 = 
GF9 0 = 
IF90 = 
KF9 0 = 
MF9 0 = 
OF9 0 = 
QF9 0 = 
SF90 = 
UF90 = 
WF9 0 = 
YF9 0 = 


AF9 0 = 1092624416, 

1126178848, 

DF90 = 

1159733280, 

FF9 0 = 

1193287712 , 

HF9 0 = 

1226842144, 

JF90 = 

1260396576, 

LF90 = 

1293951008, 

NF90 = 

1327505440, 

PF90 = 

1361059872, 

RF90 = 

1394614304, 

TF9 0 = 

1428168736, 

VF9 0 = 

1461723168, 

XF90 = 

1495277600, 

ZF90 = 


BF9 0 = 1109401632, & 

1142956064. 6 

1176510496. 6 

1210064928. 6 

1243619360. 6 

1277173792. 6 
1310728224, & 

1344282656. 6 

1377837088 . 6 

1411391520. 6 

1444945952. 6 
1478500384 , & 
1512054816 


integer, PARAMETER :: BLF90 
N1F90 = 824188960, 
N3F90 = 857743392, 
N5F90 = 891297824, 
N7F90 = 924852256, 
N9F90 = 958406688, 
MNF90 = 757080096, 
DECF90 =773857312, 
STF90 = 706748448, 
RPF90 = 689971232, 


= 538976288, N0F90 = 807411744, & 
N2F90 = 840966176, & 

N4F90 = 874520608, & 

N6F90 = 908075040, & 

N8F90 = 941629472, & 

PLF90 = 723525664, & 

EQF90 = 1025515552, & 

AMPF90 =639639584 , & 

LPF90 = 673194016, & 

CMF90 = 740302880 
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descriptions 
AF90 = 'A 1 
BF9 0 = ' B ’ 
etc . 

BLF90 = BLANK 
PLF90 = ’ + ' 

MNF90 = 

EQF90 = '=' 

DECF90 = ' . 1 
AMPF9 0 = ' & 1 
STF90 = 

LPF90 = ' ( ' 

RPF90 = ' ) ' 

CMF90 = ' , ' 

contains 

subroutine char_check 
implicit none 

integer : : ierr 
ierr = 0 

check constants 

call char_compare { ' A 
call char_compare ( ’ B 
call char_compare ( 1 C 
call char_compare ( 1 D 
call char_compare ( 1 E 
call char_compare ( 1 F 
call char_compare ( 1 G 
call char^compare ( ' H 
call char_compare ( ’ I 
call char_compare ( ' J 
call char_compare ( ' K 
call c har_compare ( ' L 
call char_compare ( 1 M 
call char_compare ( ' N 
call char_compare ( ' 0 
call char_compare { ' P 
call char.compare ( ’ Q 
call char_compare ( 1 R 
call char_compare ( 1 S 
call char_compare ( ' T 
call char_compare ( ' U 
call char_compare ( 'V 
call char_compare ( ’ W 
call char_compare ( ' X 
call char_compare( ' Y 
call char_compare ( ' Z 


' , af 90 , ierr) 

' , bf 90 , ierr) 

' , cf 90 , ierr) 

' , df 90 , ierr) 
* , ef 90 , ierr) 
* , f f 90 , ierr ) 

1 , gf 9 0 , ierr) 

1 , hf 90 , ierr) 
1 , if 90 , ierr) 

' , j f 90 , ierr) 
' , kf 90 , ierr ) 
’ , If 90 , ierr ) 

' , mf 90 , ierr ) 
' , nf 90 , ierr) 
’ , of 9 0 , ierr) 
’ , pf 90 , ierr) 
1 , qf 90 , ierr) 
' # r f 90 , ierr) 
1 , sf 90 , ierr) 
1 , tf 90 , ierr) 
' , uf 9 0 , ierr ) 
1 , vf 90 , ierr) 
' , wf 90 , ierr) 
' , xf 90 , ierr) 
' , yf 90 , ierr ) 
' , zf 90 , ierr) 
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call char_compare ( 
call char_compare { 
call char_compare ( 
call char_compare ( 
call char_compare ( 
call char_compare ( 
call char_compare ( 
call char_compare ( 
call char_compare ( 
call char_compare ( 
call char^compare ( 

call char_compare ( 
call char_compare ( 
call char__compare ( 
call charge ompar e { 
call char_compare( 
call char_compare ( 
call char_compare ( 
call char_compare ( 
call char_compare { 



’ ,blf90, ierr) 

’ 0 

’ , nOf 90 , ierr) 

’ 1 

1 ,nlf 90 , ierr) 

’ 2 

’ , n2 f 90 , ierr) 

' 3 

' , n3 f 90 , ierr) 

1 4 

' , n4f 90 , ierr) 

' 5 

' , n5f 90 , ierr) 

' 6 

' , n6f 90 , ierr) 

' 7 

' , n7f 90 , ierr) 

' 8 

’ , n8f 90 , ierr ) 

' 9 

’ , n9f 90 , ierr) 

' + 

' , plf 90 , ierr) 

' - 

1 , mnf 90 , ierr) 

• = 

' , eqf 90 , ierr) 


' , deef 90 , ierr) 

’ & 

’ , ampf 9 0 , ierr ) 

i ★ 

’ , st f 90 , ierr) 

’ ( 

1 , lpf 90 , ierr) 

■ ) 

' , rpf 90 , ierr) 

' , 

’ , cmf 90 , ierr) 


if (ierr /= 0) then 

write (*,*) 'Error in f90 parameters’ 
write{*,*) ’Terminating NESSUS' 
stop 
end i f 


end subroutine char_check 


subroutine char_compare {chr , intval , ierr) 
implicit none 

character { len=4) , intent(in) :: chr 
integer, intent (in) :: intval 

integer, intent ( in out) :: ierr 

if (intval /= transfer (chr , intval) ) then 

write ( * , 1 ) chr , intval , transfer ( chr, intval ) 
ierr = ierr + 1 
end if 

1 f ormat {' Error , integer representation for character & 

a4,/,' value = ’,il2,' not equal to parameter value = 
end subroutine char_compare 


function int_f rom_char ( chrl ) result (int) 

routine determines the integer equivalent to the character 
variable chrl 

chrl is character*! 


il2 ) 


7 



therefore, 3 blanks are padded before the transfer 
integer : : int 
character { len-1) :: chrl 
character (len=4) :: chr4 

chr4 = chrl//' 

int = transfer (chr4 , nopt) 

write (*,*) ' [int_char_set] chr4 = ' , chr4 , int_char_set 

return 

end function int_f rom_char 


function char_f rom_int ( int , n) result (chr4) 

integer, dimension (n) :: int 

character ( len=4 ) :: tchr4 

character ( len=4 ) , dimension (n) : : chr4 

do i = 1 , n 

chr4(i) = trans f er ( int ( i ) , tchr4 ) 
end do 

write{*,*) 'chr4 = 1 , chr4 
return 

end function char_f rom_int 
end module f90_params 
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Appendix B - Modified routines 


bansf.f 

bem.f 

betaic.f 

betaln.f 

blckOl.f 

bounin.f 

cdf6.f 

cdfglb.f 

cdfloc.f 

cfield.msc.f 

chi.f 

cintvl.f 

cnodel.f 

compar.f 

dater.f 

datinl .f 

datin2.f 

datin3.f 

datohl.f 

datoul.f 

datou4.f 

decint.f 

decrea.f 

fastmc.f 

fcfout.f 

fem.f 

finver.f 

foloin.f 


change TITLE to ITITLE and use char_from Jnt to write as character 

removed Hollerith statements 

removed Hollerith statements 

removed Hollerith statements 

made IDAT character*4 

removed Hollerith statements. 

Add check for uniform distribution. 

RWORK not dimensioned in FASTMC. Add RWORK to all calls to FASTMC and other 
calling subroutines. 

RWORK not dimensioned in FASTMC. Add RWORK to all calls to FASTMC and other 

calling subroutines. 

variable card changed to cardn. 

Change convergence criteria from IE-4 and 10 to IE-8 and 50. Affects Harbitz sampling. 
RWORK not dimensioned in FASTMC. Add RWORK to all calls to FASTMC and other 
calling subroutines, 
removed Hollerith statements 

removed Hollerith statements, uses f90_parameters for initialization 
inserted FORTRAN 90 intrinsic for date 
removed Hollerith statements 
removed Hollerith statements 

removed Hollerith statements, uses f90_parameters for initialization 
removed Hollerith statements, fixed output statements using variable A6 
fixed output statements using variable A6, uses f90_parameters for initialization 
removed Hollerith statements 

removed Hollerith statements, uses f90_parameters for initialization 

removed Hollerith statements, uses f90_parameters for initialization 

RWORK not dimensioned in FASTMC. Add RWORK to all calls to FASTMC and other 

calling subroutines. 

removed Hollerith statements, changed NAME2, NAME3 to character 
removed Hollerith statements 
removed Hollerith statements 
removed Hollerith statements 
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frontf.f 

harbz2.f 

harmin.f 

header. f 

histo.f 

hstout.f 

hypgeo.f 

initfr.f 

initi2.f 

initin.f 

int_char_set.f 

iopen.msc.f 

isreal.f 

jacobi.f 

key.f 

llinpl.f 

1 1 inp2.f 

lltim.f 

llrvin.f 

matprt.f 

models. f 

moniin.f 

monitr.f 

mscpost.f 

nessus.f 

outdat.f 

page.f 

page2.f 

page2s.f 

page3.f 

page3s.f 

pcfout.f 

perdef.f 

persiz.f 


removed Hollerith statements 
fixed format statement past column 72 

removed Hollerith statements, uses f90_parameters for initialization 
removed Hollerith statements, added corrections to write out integer date variable 
removed Hollerith statements 

change TITLE to ITITLE and use char_from_int to write as character 
removed Hollerith statements 
removed Hollerith statements 
removed Hollerith statements 

removed Hollerith statements, uses f90_parameters for initialization 
new function which sets integers based on character input 
corrected variable IRET which was used but not set 
removed Hollerith statements, uses f90_parameters for initialization 
removed Hollerith statements 

removed Hollerith statements, used TRANSFER function to write out input 
removed Hollerith statements, uses f90_parameters for initialization 
uses f90_parameters for initialization 
removed Hollerith statements 

removed Hollerith statements, uses f90_parameters for initialization 
modified print statement to print integers as alpha 
modified argument to MAX 

removed Hollerith statements, uses f90_parameters for initialization 
removed Hollerith statements, changed NAME to character*4 
removed Hollerith statements 

removed Hollerith statements, added case select to select NESSUS module 
change TITLE to ITITLE and use char_from_int to write as character 
removed Hollerith statements 

removed Hollerith statements, changed output of NAMVAR to character before printing 
removed Hollerith statements, changed output of NAMVAR to character before printing 
removed Hollerith statements, changed output of NAMVAR to character before printing 
removed Hollerith statements, changed output of NAMVAR to character before printing 
removed Hollerith statements, changed NAME2, NAME3 to character, adjusted format 
statements 

removed Hollerith statements, uses f90_parameters for initialization 
removed Hollerith statements, uses f90_parameters for initialization 
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pfem.msc.f 

pmtrx.f 

pparti.f 

preinp.f 

pretim.f 

prinin.f 

prinol .f 

prino2.f 

prino3.f 

prinou.f 

prinsu.f 

printm.f 

prompt, f 

psdin.f 

quit.f 

rlmach.f 

randin.f 

rdpar.f 

redext.msc.f 

rednas.msc.f 

redpfm.msc.f 

respon.f 

rottrn.f 

s88fmt.f 
sbcin.f 
select. f 
setdef.f 
setup. f 
simres.f 
sspev.f 
string. f 
subspc.f 


moved MFEMRV from data statement to executable 

change TITLE to ITITLE and use char_fromJnt to write as character 

removed Hollerith statements, changed A6 to character*6 

removed Hollerith statements, uses f90_parameters for initialization 

removed Hollerith statements, changed variable NAME to character before printing 

removed Hollerith statements, uses f90_parameters for initialization 

changed FORMS to character*8 

changed FORMS to character* 8 

changed FORMS to character* 8 

removed Hollerith statements, initialize NAME1 and NAME2 with transfer function, changed 
FORMS, FORMS 1 and FORMS2 to character 

removed Hollerith statements, initialize NAME with transfer function, changed FORMS, 
FORMS 1 and FORMS2 to character 
removed Hollerith statements 

uses command line argument, only routine different from HP 
uses f90_params for initialization of NAME 

removed Hollerith statements, changed arguments to char*4 from char*6 
removed Hollerith statements 

uses f90_params for initialization of NAME2 and NAME3 
convert TITLE from integer to character 
replaced bad logical statement, now is (.not.oldfil) 
removed variable IREDMSC, referenced but not set 
added checks for valid FPI methods during a PFEM analysis 
comment out common PP 

Allow small negative eigenvalues when transforming from correlated variables to 

independent variables. 

uses f90_params for initialization of IDIGIT 

removed Hollerith statements 

uses f90_params for initialization of ICMMNT 

removed Hollerith statements, uses f90_parameters for initialization 

removed Hollerith statements 

Add a close statement for scratch file. 

removed Hollerith statements 

removed Hollerith statements, read card as character variable then transfer to integer 
removed Hollerith statements 
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syrsk2.f* 

sys.f 

sysana.f 

timer.f* 

timout.f 

tracin.f 

traout.f 

tyinin.f 

ucfout.f 

uconv.f 


verinc.f 

wrtpar.f 

xerprt.f 

xerrwv.f 

xersav.f 

xfpi.f 

xtrrfm.f 

zlevel.f 


symbols referenced but not set (don’t know how to fix) 
removed Hollerith statements, uses f90_parameters for initialization 
removed Hollerith statements 

must be updated with system dependent time routine 

removed Hollerith statements, changed arguments to character 

removed Hollerith statements 

removed Hollerith statements 

removed Hollerith statements 

changed NAME2, NAME3 to character 

Take absolute value of ZSTAR when making error check on Z for AMV+ analysis. Change 

ZERR_TOL from 0.2 to 0.01. Compare against zstar, which is the goal, for percent error not 

zfun, which is the latest iteration value. 

moved initialization of IVERIN from data to executable 

change TITLE to LITTLE and use char_from_int to write as character 

uses f90_params for initialization of F and G arrays 

removed Hollerith statements 

uses f90_params for initialization of F array 

RWORK not dimensioned in FASTMC. Add RWORK to all calls to FASTMC and other 

calling subroutines. 

fixed bad format statement 

RWORK not dimensioned in FASTMC. Add RWORK to all calls to FASTMC and other 
calling subroutines. 
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Appendix C -Verification problems 


fem (59 files) 

alstrip.dat 

axicomp.dat 

axihemi.dat 

barbuck.dat 

blister.dat 

caselpre.dat 

ccplate.dat 

cfblade.dat 

cspbuck.dat 

cspgeom.dat 

csppert.dat 

cspsnap.dat 

denotch.dat 

disbeam.dat 

disdyna.dat 

dishole.dat 

eptwcyl.dat 

floydpv.dat 

hpftpls.dat 

hpftp2s.dat 

isohard.dat 

kinhard.dat 

lbeam3d.dat 

lbeam3d_loub.dat 

ldplate.dat 

lpsbuck.dat 

mixbeam.dat 

mixdyna.dat 

mixhole.dat 

newarch.dat 

newcap.dat 

newwave.dat 

nitwcyl.dat 

ocbeaml .dat 

ocbeam2.dat 

ocbeam3.dat 

onebrick.dat 

pcplate.dat 

phshell.dat 

platepl.dat 

probl.dat 

probl l.dat 

probl new. dat 

prob2.dat 

prob3.dat 

prob4.dat 

prob5.dat 
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prob6.dat 

prob7.dat 

prob8.dat 

prob9.dat 

rvfield.dat 

sbeamfl.dat 

sbeamf2.dat 

sbeamf3.dat 

stifeig.dat 

stiff3d.dat 

triplet.dat 

twisted.dat 

walkers.dat 

fpi (41 files) 

anne_amv.dat 

anne_form.dat 

cbeam_and.dat 

cbeam_or.dat 

column.fpi.m4.dat 

column.fpi.m5.dat 

column.fpi.m6.dat 

column.fpLm8.dat 

column.fpi.m9.dat 

lcfamv.dat 

lcfmc.dat 

normlOOfpi.dat 

qrplate_amv.dat 

qrplate_fpi.dat 

qrplate_mc.dat 

tiltbeam_fpi.dat 

tiltbeam_mc.dat 

tpbend_ais2.dat 

tpbend_amv.dat 

tpbend_mc.dat 

ueqn_ais2.dat 

ueqn_amv.dat 

ueqn_amv_cor.dat 

ueqn_amv_plev.dat 

ueqn_forrn_cor.dat 

ueqn_fpi.dat 

ueqn_mc.dat 

ueqn_mv.dat 

ueqn_sys.dat 

ueqnsys.dat 

ures_ais2.dat 

ures_amv.dat 

ures_amv_cor.dat 

ures_fpi.dat 

ures_mc.dat 

ures_sys.dat 

user_ais2.dat 
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user_amv.dat 

user_fpi.dat 

user_mc.dat 

user_sys.dat 

mpplrs (10 files) 

pl-p2.dat 

pl.dat 

p2.dat 

r-s.dat 

r. dat 

rsexact.dat 

rsindep.dat 

s. dat 

tbexact.dat 

tbindep.dat 

pbem (44 files) 

hO.dat 

hl.dat 

hlO.dat 

hll.dat 

hl2.dat 

hl3.dat 

hl4.dat 

hl5.dat 

hl6.dat 

hl7.dat 

hl8.dat 

hl9.dat 

h2.dat 

h20.dat 

h21.dat 

h22.dat 

h23.dat 

h24.dat 

h25.dat 

h26.dat 

h27.dat 

h28.dat 

h29.dat 

h30.dat 

h31.dat 

h34.dat 

h35.dat 

h36.dat 

h37.dat 

h38.dat 

h39.dat 

h40.dat 

h41 .dat 
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h42.dat 

h45.dat 

h47.dat 

h48.dat 

h49.dat 

h6.dat 

h7.dat 

h8.dat 

plate 1 .dat 

plate2.dat 

plate3.dat 

pfem (32 files) 

campbell_cf.dat 

column.dat 

column_aism.dat 

columncf.dat 

columncf_aism.dat 

columncf_harb.dat 

cor_opt0.dat 

cor_optl.dat 

elplcy_cf.dat 

elplcy_mccf.dat 

elplcy_pfem.dat 

fracture.dat 

impp_p.dat 

impp_z.dat 

klc.dat 

klc_fem.dat 

lognormal. 100. dat 

normal. 100. dat 

qrplate.dat 

qrplatecf.dat 

test.dat 

tiltbeam_pfem.dat 

tiltbeam_pfemcf.dat 

tpbendl2.dat 

ueqn.dat 

ueqn_ais.dat 

ueqn_amv.dat 

ueqn_fpi.dat 

ueqn_mc.dat 

ueqn_mv.dat 

ueqn_sys.dat 

ueqnsys.dat 

risk (2 files) 

costtest.dat 

perftest.dat 
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simfem (2 files ) 

qrplate.simfem.dat 

simfem.h0.dat 

sra (9 sra files) 

eto_sys.dat 

eto_sys_aismcf.dat 

eto_syscf.dat 

eto_sysimp.dat 

sra_cbeam_and.dat 

sra_cbeam_app.dat 

sra_cbeam_imp.dat 

sra_pframe.dat 

sra_pframeg.dat 
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